Otherware/Otherware_1_SB_Development.iso/mac/hypercar/xcmd/locale.sit/Locale Package/cards.xml

Text File | 1991-02-02 | 51.7 KB | 1,151 lines

card_3026.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>3026</id>
    <filler1>0</filler1>
    <bitmap>BMAP_3863.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2566</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3211.css" />
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>13</left>
            <top>31</top>
            <right>502</right>
            <bottom>250</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>6</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>279</left>
            <top>259</top>
            <right>403</right>
            <bottom>335</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Palatino</font>
        <textSize>18</textSize>
        <textStyle>plain</textStyle>
        <textHeight>24</textHeight>
        <name></name>
        <script>on mousedown
visual zoom open
go cd "settimedate"
end mousedown</script>
    </part>
    <part>
        <id>7</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>144</left>
            <top>259</top>
            <right>268</right>
            <bottom>335</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Palatino</font>
        <textSize>18</textSize>
        <textStyle>plain</textStyle>
        <textHeight>24</textHeight>
        <name></name>
        <script>on mousedown
visual zoom open
go cd "setlocale"
end mousedown</script>
    </part>
    <part>
        <id>8</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>8</left>
            <top>259</top>
            <right>132</right>
            <bottom>335</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Palatino</font>
        <textSize>18</textSize>
        <textStyle>plain</textStyle>
        <textHeight>24</textHeight>
        <name></name>
        <script>on mousedown
visual zoom open
go cd "getlocale"
end mousedown</script>
    </part>
    <part>
        <id>13</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>452</left>
            <top>315</top>
            <right>475</right>
            <bottom>337</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1014</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUp
visual wipe right
go prev cd
end mouseUp</script>
    </part>
    <part>
        <id>14</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>483</left>
            <top>315</top>
            <right>506</right>
            <bottom>337</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1013</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUp
visual wipe left
go next cd
end mouseUp
</script>
    </part>
    <content>
        <layer>card</layer>
        <id>1</id>
        <text><span class="style2">ocale Package 1.0</span><span class="style1">
</span><span class="style4">by Len Saaf
©1991 Raleigh Associates
These XCMDs are free for non-commercial purposes.
</span><span class="style3">
There are three Hypercard XCMDs in this stack. Two read and write the latititude, longitude and time zone information that is stored in the Macintosh's parameter RAM. The third XCMD will set the time and date of the Macintosh should you ever require that done from Hypercard. The Pascal source code is included. The XCMDs return desciption and usage information when called with "!" and "?" respectively.

Feedback is welcome. My address is [e-mail]</span></text>
    </content>
    <content>
        <layer>card</layer>
        <id>6</id>
        <text>
SetTimeDate
XCMD</text>
    </content>
    <content>
        <layer>card</layer>
        <id>7</id>
        <text>
SetLocale
XCMD</text>
    </content>
    <content>
        <layer>card</layer>
        <id>8</id>
        <text>
GetLocale
XCMD</text>
    </content>
    <name></name>
    <script></script>
</card>


card_3597.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>3597</id>
    <filler1>0</filler1>
    <bitmap>BMAP_4317.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2566</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3211.css" />
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>5</left>
            <top>24</top>
            <right>508</right>
            <bottom>304</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>363</left>
            <top>97</top>
            <right>504</right>
            <bottom>299</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>4</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>42</left>
            <top>306</top>
            <right>145</right>
            <bottom>329</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUp
GetLocale
put the result into myres
if word 1 of myres is "Error" then
beep
put return &¬
"Error returned" & return & return & "XCMD returned:" ¬
&& myres into tmp
else
put return & "XCMD returned:" && myres & return & return into tmp
put "Latitude:" && abs(item 1 of myres) after tmp
if (item 1 of myres) < 0  then
put " South" after tmp
else
put " North" after tmp
end if
put return & "Longitude:" && abs(item 2 of myres) after tmp
if (item 2 of myres) < 0  then
put " West" after tmp
else
put " East" after tmp
end if
put return & return after tmp
if (item 3 of myres) < 0 then
put abs(item 3 of myres) && "hours behind UTC" after tmp
else
put abs(item 3 of myres) && "hours ahead of UTC" after tmp
end if
end if
put return & return & "Click to hide." after tmp
put tmp into cd fld "results"
show cd fld "results"
end mouseUp</script>
    </part>
    <part>
        <id>5</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>170</left>
            <top>306</top>
            <right>273</right>
            <bottom>329</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUp
set the scroll of cd fld "source" to 0
show cd fld "source"
end mouseUp</script>
    </part>
    <part>
        <id>6</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>365</left>
            <top>313</top>
            <right>388</right>
            <bottom>335</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1014</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUp
visual wipe right
go prev cd
end mouseUp</script>
    </part>
    <part>
        <id>7</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>396</left>
            <top>313</top>
            <right>419</right>
            <bottom>335</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1013</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUp
visual wipe left
go next cd
end mouseUp
</script>
    </part>
    <part>
        <id>8</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>435</left>
            <top>313</top>
            <right>458</right>
            <bottom>335</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1012</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUp
visual iris close
go first cd
end mouseUp</script>
    </part>
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>6</left>
            <top>26</top>
            <right>504</right>
            <bottom>334</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>source</name>
        <script>on mousedown
hide me
end mousedown</script>
    </part>
    <part>
        <id>9</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>102</left>
            <top>71</top>
            <right>423</right>
            <bottom>257</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>14</textSize>
        <textStyle>plain</textStyle>
        <textHeight>18</textHeight>
        <name>results</name>
        <script>on mousedown
hide me
end mousedown</script>
    </part>
    <content>
        <layer>card</layer>
        <id>1</id>
        <text>{    Name: GetLocale}
{        This XCMD fetches location information that is stored in the Macintosh's}
{        parameter RAM. This information can be set using the Map cdev}
{        (a part of Apple system software) or by the SetLocale XCMD}
{        that accopanies this XCMD.}
{}
{    Written by : Len Saaf}
{        January, 1991}
{        ©1991 Raleigh Associates}
{        Free for non-commercial use}
{        Developed with THINK Pascal 3.0, ©1990 SYMANTEC Corp.}
{}
{    Form: GetLocale}
{        The first word of the result is "Error" if an error has occurred.}
{        Otherwise, the result is a four-item container:}
{            1)    Latitude in degrees (positive for north, negative for south)}
{            2)    Longitude in degrees (positive for east, negative for west)}
{            3)    Difference from UTC (aka GMT) in hours}
{            4)    A daylight savings time difference (undocumented as far as I can tell)}
{}
{    Example: GetLocale}
{        put the result into myLoc}
{        put item 1 of myLoc into myLatitude}
{        put item 2 of myLoc into myLongitude}
{}
{    Note:}
{        Latitude & longitude are returned in decimal form, not in degrees, minutes,}
{        and secondsΓÇölikewise with the UTC difference in hours.}
{}
{    Include the following files in the project:}
{        DRVRRuntime.lib}
{        Interface.lib}
{        SANElib.lib}
{        FixMath.p}
{        Script.p}
{        HyperXCmd.p}
{        HyperXLib.o}
{        GetLocale.p}

unit DummyUnit;

interface
    uses
        HyperXCmd, FixMath, Script;

    procedure Main (paramPtr: XCmdPtr);

implementation

    procedure Main (paramPtr: XCmdPtr);
        const
            Version = 'GetLocale XCMD 1.0 ©Raleigh Associates 1991 - Gets location info from PRAM';
            Usage = 'Usage: No arguments. Returns: Latitude, Longitude, UTCdifference, DaylightSavingsDifference';
            MinArgs = 0;
            MaxArgs = 0;
        var
            lat, lon, utcDiff, dlsDiff: real;

        procedure CleanUpAndExit;
        begin
{ nothing to clean up }
            exit(Main);
        end; { CleanUpAndExit }

        procedure Error (paramPtr: XCmdPtr; errStr: str255);
        begin
            errStr := concat('Error from GetLocale : ', errStr);
            paramPtr^.returnValue := PasToZero(paramPtr, errStr);
            CleanUpAndExit;
        end; { Error }

        procedure InitProc (paramPtr: XCmdPtr); {  }
            var
                str: str255;
        begin
            paramPtr^.returnValue := nil;
            paramPtr^.passflag := FALSE;

            if paramPtr^.paramCount = 1 then
                begin
                    ZeroToPas(paramPtr, paramPtr^.params[1]^, str);
                    if (str = '!') or (str = '?') then
                        begin
                            if str = '!' then
                                paramPtr^.returnValue := PasToZero(paramPtr, Version)
                            else
                                paramPtr^.returnValue := PasToZero(paramPtr, Usage);
                            CleanUpAndExit;
                        end; { if }
                end; { if }

            if (paramPtr^.paramCount < MinArgs) or (paramPtr^.paramCount > MaxArgs) then
                Error(paramPtr, concat('Wrong number of arguments. ', Usage));
        end; { InitProc }

        procedure ReturnProc (paramPtr: XCmdPtr); { puts the values into returnValue }
            var
                str1, str2, str3, str4: str255;
        begin
            ExtToStr(paramPtr, lat, str1);
            ExtToStr(paramPtr, lon, str2);
            ExtToStr(paramPtr, utcDiff, str3);
            ExtToStr(paramPtr, dlsDiff, str4);
            str1 := concat(str1, ',', str2, ',', str3, ',', str4);
            if (lat = 0) and (lon = 0) and (utcDiff = 0) then { all are zero if the PRAM is empty or zapped }
                Error(paramPtr, 'Location information has not been set!')
            else
                paramPtr^.returnValue := PasToZero(paramPtr, str1);
            CleanUpAndExit;
        end; { ReturnProc }

        procedure GetLocale (paramPtr: XCmdPtr);
            var
                myLocale: MachineLocation;
                iutcdelta: longint;
                mybyte: SignedByte;
        begin
            ReadLocation(myLocale); { this is the Script Manager routine that extracts the data from the PRAM }
            lat := Frac2X(myLocale.latitude) * 90;
            lon := Frac2X(myLocale.longitude) * 90;
            iutcdelta := BAnd(myLocale.gmtDelta, $00FFFFFF);
            if BTst(iutcdelta, 23) then
                iutcdelta := BOr(iutcdelta, $FF000000);
            utcDiff := iutcdelta / 3600;
            mybyte := myLocale.dlsDelta;
            dlsDiff := mybyte;
        end; { GetLocale }

    begin { Main }
        InitProc(paramPtr);
        GetLocale(paramPtr);
        ReturnProc(paramPtr);
    end; { Main }

end. { implementation }</text>
    </content>
    <content>
        <layer>card</layer>
        <id>2</id>
        <text><span class="style5">etLocale XCMD</span><span class="style1">
This XCMD fetches location information stored in the Macintosh's parameter RAM. This information can be set using the Map cdev    (a part of Apple system software) or by the SetLocale XCMD included in this stack.
</span><span class="style6">
</span><span class="style1">Form: </span><span class="style11">GetLocale</span><span class="style1">
The first word of the result is "Error" if an error has occurred.
Otherwise, the result is a four-item container:
  1)    Latitude in degrees (positive for north, negative for south)
     2)    Longitude in degrees (positive for east, negative for west)
     3)    Difference from UTC (aka GMT) in hours
     4)    A daylight savings time difference (undocumented as far
      as I can tell)

Example: </span><span class="style11">GetLocale
put the result into myLoc
put item 1 of myLoc into myLatitude
put item 2 of myLoc into myLongitude</span><span class="style1">
</span></text>
    </content>
    <content>
        <layer>card</layer>
        <id>3</id>
        <text>Notes:
    Latitude & longitude are returned in decimal form, not in degrees, minutes,    and secondsΓÇölikewise with the UTC difference in hours.

If the location has never been set, or if the PRAM has been zapped, the XCMD returns an error.</text>
    </content>
    <content>
        <layer>card</layer>
        <id>9</id>
        <text>
XCMD returned: 43.25,-77.5,-5,0

Latitude: 43.25 North
Longitude: 77.5 West

5 hours behind UTC

Click to hide.</text>
    </content>
    <name>getlocale</name>
    <script></script>
</card>


card_4422.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>4422</id>
    <filler1>0</filler1>
    <bitmap>BMAP_4842.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2566</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3211.css" />
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>5</left>
            <top>24</top>
            <right>508</right>
            <bottom>304</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>363</left>
            <top>166</top>
            <right>496</right>
            <bottom>285</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>4</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>42</left>
            <top>306</top>
            <right>145</right>
            <bottom>329</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUp
ask "Enter your latitude: (negative for south)"
if the result is "Cancel" then exit mouseUp
put it into lat
ask "Enter your longitude: (negative for west)"
if the result is "Cancel" then exit mouseup
put it into lon
ask "Enter your time zone difference from UTC: (-5 for EST)"
if the result is "Cancel" then exit mouseup
put it into tz
SetLocale lat,lon,tz
put the result into myres
if word 1 of myres is "Error" then
beep
answer myres
else
answer "Done!"
end if
end mouseUp</script>
    </part>
    <part>
        <id>5</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>170</left>
            <top>306</top>
            <right>273</right>
            <bottom>329</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUp
set the scroll of cd fld "source" to 0
show cd fld "source"
end mouseUp</script>
    </part>
    <part>
        <id>6</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>365</left>
            <top>313</top>
            <right>388</right>
            <bottom>335</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1014</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUp
visual wipe right
go prev cd
end mouseUp</script>
    </part>
    <part>
        <id>7</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>396</left>
            <top>313</top>
            <right>419</right>
            <bottom>335</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1013</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUp
visual wipe left
go next cd
end mouseUp
</script>
    </part>
    <part>
        <id>8</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>435</left>
            <top>313</top>
            <right>458</right>
            <bottom>335</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1012</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUp
visual iris close
go first cd
end mouseUp</script>
    </part>
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>6</left>
            <top>26</top>
            <right>504</right>
            <bottom>334</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>source</name>
        <script>on mousedown
hide me
end mousedown</script>
    </part>
    <content>
        <layer>card</layer>
        <id>1</id>
        <text>{    Name: SetLocale}
{        This XCMD set location information that is stored in the Macintosh's}
{        parameter RAM. This information is normally set using the Map cdev}
{        (a part of Apple system software). The location information can be}
{        read with the GetLocale XCMD that accompanies this XCMD.}
{}
{    By : Len Saaf}
{        January, 1991}
{        ©1991 Raleigh Associates}
{        Free for non-commercial use}
{        Developed with THINK Pascal 3.0, ©1990 SYMANTEC Corp.}
{}
{    Form: SetLocale latitude,longitude,UTCdifference,DSTdifference}
{        The first word of the result is "Error" if an error has occurred.}
{            1)    Latitude is in degrees (positive for north, negative for south)}
{            2)    Longitude is in degrees (positive for east, negative for west)}
{            3)    Difference from UTC (aka GMT) in hours}
{            4)    A daylight savings time difference (undocumented as far as I can tell)}
{}
{    Example: SetLocale 43.25, -77.5, -5, 0}
{        This sets the location to 43.25┬░ N, 77.5┬░ W}
{        The UTC difference is set to -5 (EST)}
{}
{    Note:}
{        Latitude & longitude should be in decimal form, not in degrees, minutes,}
{        and secondsΓÇölikewise with the UTC difference in hours.}
{}
{    Include the following files in the project:}
{        DRVRRuntime.lib}
{        Interface.lib}
{        SANE.p}
{        SANElib.lib}
{        FixMath.p}
{        Script.p}
{        HyperXCmd.p}
{        HyperXLib.o}
{        SetLocale.p}

unit DummyUnit;

interface
    uses
        HyperXCmd, FixMath, Script, SANE;

    procedure Main (paramPtr: XCmdPtr);

implementation

    procedure Main (paramPtr: XCmdPtr);
        const
            Version = 'SetLocale XCMD 1.0 ©Raleigh Associates 1991 - Sets location info in PRAM';
            Usage = 'Usage: SetLocale latitude, longitude, <UTCdifference, <DSTdifference>>';
            MinArgs = 2;
            MaxArgs = 4;

        procedure CleanUpAndExit;
        begin
{ nothing to clean up }
            exit(Main);
        end; { CleanUpAndExit }

        procedure Error (paramPtr: XCmdPtr; errStr: str255);
        begin
            errStr := concat('Error from SetLocale : ', errStr);
            paramPtr^.returnValue := PasToZero(paramPtr, errStr);
            CleanUpAndExit;
        end; { Error }

        function ReadReal (paramPtr: XCmdPtr; paramNo: integer; var myReal: real): Boolean;
{ Reads in a specified parameter and validates it using SANE routines }
            const
                maxreal = 3.4e38;
            var
                d: Decimal;
                validPrefix: Boolean;
                index: integer;
                myExt: extended;
        begin
            if (paramNo > paramPtr^.paramCount) or (paramNo < 1) then
                ReadReal := False
            else
                begin
                    index := 0;
                    CStr2Dec(CStrPtr(paramPtr^.params[paramNo]^), index, d, validPrefix);
                    if not validPrefix then
                        ReadReal := False
                    else
                        begin
                            myExt := Dec2Num(d);
                            case ClassExtended(myExt) of
                                ZeroNum, NormalNum:
                                    if (abs(myExt) < maxreal) then
                                        begin
                                            myReal := myExt;
                                            ReadReal := True;
                                        end
                                    else
                                        ReadReal := False;
                                otherwise
                                    ReadReal := False;
                            end; { case }
                        end; { if }
                end; { if }
        end; { ReadReal }

        procedure InitProc (paramPtr: XCmdPtr); {  }
            var
                str: str255;
        begin
            paramPtr^.returnValue := nil;
            paramPtr^.passflag := FALSE;

            if paramPtr^.paramCount = 1 then
                begin
                    ZeroToPas(paramPtr, paramPtr^.params[1]^, str);
                    if (str = '!') or (str = '?') then
                        begin
                            if str = '!' then
                                paramPtr^.returnValue := PasToZero(paramPtr, Version)
                            else
                                paramPtr^.returnValue := PasToZero(paramPtr, Usage);
                            CleanUpAndExit;
                        end; { if }
                end; { if }

            if (paramPtr^.paramCount < MinArgs) or (paramPtr^.paramCount > MaxArgs) then
                Error(paramPtr, concat('Wrong number of arguments. ', Usage));
        end; { InitProc }

        procedure ReturnProc (paramPtr: XCmdPtr); { puts the values into returnValue }
        begin
{ Nothing to return }
            CleanUpAndExit;
        end; { ReturnProc }

        procedure SetLocale (paramPtr: XCmdPtr);
            var
                lat, lon, utcDiff, dlsDiff: real;
                myLocale: MachineLocation;
                tUTC: longint;
                tDLS: SignedByte;
                str: str255;
                pCount: integer;
        begin
{ read and check the arguments }
            pCount := paramPtr^.paramCount;

            if ReadReal(paramPtr, 1, lat) then
                if (lat >= -90) and (lat <= 90) then
                else
                    Error(paramPtr, 'Latitude out of range')
            else
                Error(paramPtr, 'Invalid latitude');

            if pCount >= 2 then
                begin
                    if ReadReal(paramPtr, 2, lon) then
                        if (lon >= -180) and (lon <= 180) then
                        else
                            Error(paramPtr, 'Longitude out of range')
                    else
                        Error(paramPtr, 'Invalid longitude');
                end; { if }

            if pCount >= 3 then
                begin
                    if ReadReal(paramPtr, 3, utcDiff) then
                        if (utcDiff > -24) and (utcDiff < 24) then
                        else
                            Error(paramPtr, 'UTC difference out of range')
                    else
                        Error(paramPtr, 'Invalid UTC difference');
                end; { if }

            if pCount = 4 then
                begin
                    if ReadReal(paramPtr, 4, dlsDiff) then
                        if (dlsDiff >= -127) and (dlsDiff < 128) then
                        else
                            Error(paramPtr, 'DLS difference out of range')
                    else
                        Error(paramPtr, 'Invalid DLS difference');
                end; { if }

            ReadLocation(myLocale); { Script Manager routine to get the info from PRAM }
            myLocale.latitude := X2Frac(lat / 90);
            myLocale.longitude := X2Frac(lon / 90);
            if paramPtr^.paramCount >= 3 then
                begin
                    tDLS := myLocale.dlsDelta;
                    tUTC := round(utcDiff * 3600);
                    if pCount >= 4 then
                        tDLS := round(dlsDiff);
                    myLocale.gmtDelta := tUTC;
                    myLocale.dlsDelta := tDLS;
                end; { if }
            WriteLocation(myLocale); { Script Manager routine to write the info to PRAM }
        end; { SetLocale }

    begin { Main }
        InitProc(paramPtr);
        SetLocale(paramPtr);
        ReturnProc(paramPtr);
    end; { Main }

end. { implementation }</text>
    </content>
    <content>
        <layer>card</layer>
        <id>2</id>
        <text><span class="style5">etLocale XCMD</span><span class="style1">
This XCMD sets the location information that is stored in the Macintosh's parameter RAM. This information is normally set using the Map cdev (a part of Apple system software). The location information can be read with the GetLocale XCMD included in this stack.

Form: </span><span class="style11">SetLocale latitude,longitude<,UTCdifference<,DSTdifference>></span><span class="style1">
The last two arguments are optional. The arguments in detail:
  1)    Latitude in degrees (positive for north, negative for south)
  2)    Longitude in degrees (positive for east, negative for west)
  3)    Difference from UTC (aka GMT) in hours
  4)    A daylight savings time difference (undocumented
      as far as I can tell)
If the first word of the result is "Error" if an error has occurred.

Example: </span><span class="style11">SetLocale 43.25,-77.5,-5</span><span class="style1">
This sets the location to 43.25┬░ N, 77.5┬░ W
The UTC difference is set to -5 (EST)

</span></text>
    </content>
    <content>
        <layer>card</layer>
        <id>3</id>
        <text><span class="style3">ote:
Latitude & longitude should be in decimal form, not in degrees, minutes, and secondsΓÇölikewise with the UTC difference in hours.</span></text>
    </content>
    <name>setlocale</name>
    <script></script>
</card>


card_5034.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>5034</id>
    <filler1>0</filler1>
    <bitmap>BMAP_5240.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2566</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3211.css" />
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>5</left>
            <top>24</top>
            <right>508</right>
            <bottom>304</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>261</left>
            <top>217</top>
            <right>497</right>
            <bottom>281</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>4</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>42</left>
            <top>306</top>
            <right>145</right>
            <bottom>329</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUp
--answer "This demo will not report errorsΓÇöyou're on your own."
ask "Enter all the arguments you want to use. (e.g. 15,0,0,,,1984)"
if the result is "Cancel" then exit mouseup
put it into args
--domenu "message"
put the blindtyping into myblind
set the blindtyping to true
type "SetTimeDate" && args & return
put the result into myres
set the blindtyping to myblind
updatetime
if word 1 of myres is "Error" then
beep
answer myres
else
answer "Done!"
end if
end mouseUp</script>
    </part>
    <part>
        <id>5</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>170</left>
            <top>306</top>
            <right>273</right>
            <bottom>329</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUp
set the scroll of cd fld "source" to 0
show cd fld "source"
end mouseUp</script>
    </part>
    <part>
        <id>6</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>365</left>
            <top>313</top>
            <right>388</right>
            <bottom>335</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1014</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUp
visual wipe right
go prev cd
end mouseUp</script>
    </part>
    <part>
        <id>7</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>396</left>
            <top>313</top>
            <right>419</right>
            <bottom>335</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1013</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUp
visual wipe left
go next cd
end mouseUp
</script>
    </part>
    <part>
        <id>8</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>435</left>
            <top>313</top>
            <right>458</right>
            <bottom>335</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1012</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUp
visual iris close
go first cd
end mouseUp</script>
    </part>
    <part>
        <id>9</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>14</left>
            <top>239</top>
            <right>217</right>
            <bottom>275</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Palatino</font>
        <textSize>14</textSize>
        <textStyle>plain</textStyle>
        <textHeight>18</textHeight>
        <name>clock</name>
        <script></script>
    </part>
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>6</left>
            <top>26</top>
            <right>504</right>
            <bottom>334</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>source</name>
        <script>on mousedown
hide me
end mousedown</script>
    </part>
    <content>
        <layer>card</layer>
        <id>2</id>
        <text><span class="style5">etTimeDate XCMD</span><span class="style1">
This XCMD set the date and time of the Macintosh's clock. It is analagous to the ToolBox routine, SetDateTime.

Form:
</span><span class="style11">SetTimeDate hour,minute,second,month,day,year</span><span class="style1">
All arguments are optional. Arguments left empty are unchanged.

Examples:
</span><span class="style11">SetTimeDate ,,,1,15,1991</span><span class="style1">
    This sets the date to January 15, 1991 and leaves the time of day unchanged.
</span><span class="style11">SetTimeDate 15,0,0</span><span class="style1">
    This sets the time to 3:00:00 PM
</span></text>
    </content>
    <content>
        <layer>card</layer>
        <id>3</id>
        <text><span class="style3">ote:
The hour should be specified in 24 hour format.     Invalid integer arguments and arguments out of range return errors.</span></text>
    </content>
    <content>
        <layer>card</layer>
        <id>9</id>
        <text>Friday, February 1, 1991
6:58:50 PM</text>
    </content>
    <content>
        <layer>card</layer>
        <id>1</id>
        <text>{    Name: SetTimeDate    }
{        This XCMD set the date and time of the Macintosh's clock. It is analagous to the ToolBox    }
{        routine, SetDateTime.    }
{    }
{    By : Len Saaf    }
{        January, 1991    }
{        ©1991 Raleigh Associates    }
{        Free for non-commercial use    }
{        Developed with THINK Pascal 3.0, ©1990 SYMANTEC Corp.    }
{    }
{    Form: SetTimeDate hour,minute,second,month,day,year    }
{        All arguments are optional. Arguments left blank are unchanged.    }
{    }
{    Example: SetTimeDate ,,,1,15,1991    }
{                    This sets the date to January 15, 1991 and leaves the time of day unchanged.    }
{                SetTimeDate 15,0,0    }
{                    This sets the time to 3:00:00 PM    }
{    }
{    Note:    }
{        The hour should be specified in 24 hour format.    }
{        Invalid integer arguments and arguments out of range return an error.    }
{    }
{    Include the following files in the project:    }
{        DRVRRuntime.lib    }
{        Interface.lib    }
{        SANE.p    }
{        SANELib.lib    }
{        HyperXCmd.p    }
{        HyperXLib.o    }
{        SetTimeDate.p    }

unit DummyUnit;

interface
    uses
        HyperXCmd, SANE;

    procedure Main (paramPtr: XCmdPtr);

implementation

    procedure Main (paramPtr: XCmdPtr);
        const
            Version = 'SetTimeDate XCMD 1.0 ©Raleigh Associates 1991 - Sets the date and time of the clock';
            Usage = 'Usage: SetTimeDate hour, minute, second, month, day, year All arguments optional.';
            MinArgs = 1;
            MaxArgs = 6;
        var
            str: str255;

        procedure CleanUpAndExit;
        begin
{ nothing to clean up }
            exit(Main);
        end; { CleanUpAndExit }

        procedure Error (paramPtr: XCmdPtr; errStr: str255);
        begin
            errStr := concat('Error from SetTimeDate : ', errStr);
            paramPtr^.returnValue := PasToZero(paramPtr, errStr);
            CleanUpAndExit;
        end; { Error }

        function ReadInteger (paramPtr: XCmdPtr; paramNo: integer; var myInt: integer): Boolean;
{ Reads a specified parameter and validates it using SANE routines }
            var
                d: Decimal;
                validPrefix: Boolean;
                myExt: extended;
                index: integer;
        begin
            if (paramNo > paramPtr^.paramCount) or (paramNo < 1) then
                ReadInteger := False
            else
                begin
                    index := 0;
                    CStr2Dec(CStrPtr(paramPtr^.params[paramNo]^), index, d, validPrefix);
                    if not validPrefix then
                        ReadInteger := False
                    else
                        begin
                            myExt := Dec2Num(d);
                            case ClassComp(myExt) of
                                ZeroNum, NormalNum:
                                    if (abs(myExt) < maxint) then
                                        begin
                                            myInt := round(myExt);
                                            ReadInteger := True;
                                        end
                                    else
                                        ReadInteger := False;
                                otherwise
                                    ReadInteger := False;
                            end; { case }
                        end; { if }
                end; { if }
        end; { ReadInteger }

        procedure InitProc (paramPtr: XCmdPtr); {  }
            var
                str: str255;
        begin
            paramPtr^.returnValue := nil;
            paramPtr^.passflag := FALSE;

            if paramPtr^.paramCount = 1 then
                begin
                    ZeroToPas(paramPtr, paramPtr^.params[1]^, str);
                    if (str = '!') or (str = '?') then
                        begin
                            if str = '!' then
                                paramPtr^.returnValue := PasToZero(paramPtr, Version)
                            else
                                paramPtr^.returnValue := PasToZero(paramPtr, Usage);
                            CleanUpAndExit;
                        end; { if }
                end; { if }

            if (paramPtr^.paramCount < MinArgs) or (paramPtr^.paramCount > MaxArgs) then
                Error(paramPtr, concat('Wrong number of arguments. ', Usage));
        end; { InitProc }

        procedure ReturnProc (paramPtr: XCmdPtr); { puts the values into returnValue }
        begin
{ Nothing to return }
            CleanUpAndExit;
        end; { ReturnProc }

        procedure SetTimeDate (paramPtr: XCmdPtr);
            var
                tHour, tMinute, tSecond, tMonth, tDay, tYear, mySecs: Longint;
                myDateTime: DateTimeRec;
                err: OSErr;
                str: str255;
                arg, pCount: integer;
        begin
{ Get the time and make a copy of the elements }
            GetDateTime(mySecs);
            Secs2Date(mySecs, myDateTime);
            with myDateTime do
                begin
                    tHour := hour;
                    tMinute := minute;
                    tSecond := second;
                    tMonth := month;
                    tDay := day;
                    tYear := year;
                end; { with }

{ read and check the arguments }
            pCount := paramPtr^.paramCount;

            ZeroToPas(paramPtr, paramPtr^.params[1]^, str);
            if length(str) > 0 then { ignore if the argument is empty }
                if ReadInteger(paramPtr, 1, arg) then
                    if (arg >= 0) and (arg <= 23) then
                        tHour := arg
                    else
                        Error(paramPtr, 'Hour out of range')
                else
                    Error(paramPtr, 'Invalid hour');

            if pCount >= 2 then
                begin
                    ZeroToPas(paramPtr, paramPtr^.params[2]^, str);
                    if length(str) > 0 then
                        if ReadInteger(paramPtr, 2, arg) then
                            if (arg >= 0) and (arg <= 59) then
                                tMinute := arg
                            else
                                Error(paramPtr, 'Minute out of range')
                        else
                            Error(paramPtr, 'Invalid minute');
                end; { if }

            if pCount >= 3 then
                begin
                    ZeroToPas(paramPtr, paramPtr^.params[3]^, str);
                    if length(str) > 0 then
                        if ReadInteger(paramPtr, 3, arg) then
                            if (arg >= 0) and (arg <= 59) then
                                tSecond := arg
                            else
                                Error(paramPtr, 'Second out of range')
                        else
                            Error(paramPtr, 'Invalid second');
                end; { if }

            if pCount >= 4 then
                begin
                    ZeroToPas(paramPtr, paramPtr^.params[4]^, str);
                    if length(str) > 0 then
                        if ReadInteger(paramPtr, 4, arg) then
                            if (arg >= 1) and (arg <= 12) then
                                tMonth := arg
                            else
                                Error(paramPtr, 'Month out of range')
                        else
                            Error(paramPtr, 'Invalid month');
                end; { if }

            if pCount >= 5 then
                begin
                    ZeroToPas(paramPtr, paramPtr^.params[5]^, str);
                    if length(str) > 0 then
                        if ReadInteger(paramPtr, 5, arg) then
                            if (arg >= 1) and (arg <= 31) then
                                tDay := arg
                            else
                                Error(paramPtr, 'Day out of range')
                        else
                            Error(paramPtr, 'Invalid day');
                end; { if }

            if pCount = 6 then
                begin
                    ZeroToPas(paramPtr, paramPtr^.params[6]^, str);
                    if length(str) > 0 then
                        if ReadInteger(paramPtr, 6, arg) then
                            if (arg >= 1904) and (arg <= 2040) then
                                tYear := arg
                            else
                                Error(paramPtr, 'Year out of range')
                        else
                            Error(paramPtr, 'Invalid year');
                end; { if }

{ write back all elements }
            with myDateTime do
                begin
                    hour := tHour;
                    minute := tMinute;
                    second := tSecond;
                    month := tMonth;
                    day := tDay;
                    year := tYear;
                end; { with }
            Date2Secs(myDateTime, mySecs);
            err := SetDateTime(mySecs);
            if err <> noErr then
                Error(paramPtr, 'SetDateTime (Toolbox) returned error');
        end; { SetTimeDate }

    begin { Main }
        InitProc(paramPtr);
        SetTimeDate(paramPtr);
        ReturnProc(paramPtr);
    end; { Main }

end. { implementation }</text>
    </content>
    <name>settimedate</name>
    <script>on idle
updatetime
pass idle
end idle

on updatetime
put the selectedchunk into mychunk
put the long date & return & the long time into cd fld "clock"
select mychunk
end updatetime</script>
</card>